Public Declare Function GetFontData Lib "gdi32" Alias "GetFontDataA" (ByVal hdc As Long, ByVal dwTable As Long, ByVal dwOffset As Long, lpvBuffer As Any, ByVal cbData As Long) As Long
Public Declare Function sendmessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, lparam As Any) As Long
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Public Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewLong As Long) As Long
'****************Constant Declarations*****
Public Const GWW_HWNDPARENT = (-8)
Public Const EM_LINEFROMCHAR = &HC9
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Public Const WM_USER = &H400
Public Const EM_CANUNDO = WM_USER + 22
Public Const EM_EMPTYUNDOBUFFER = WM_USER + 29
Public Const EM_UNDO = &HC7
Public Const TB_SETSTYLE = WM_USER + 56
Public Const TB_GETSTYLE = WM_USER + 57
Public Const TBSTYLE_FLAT = &H800
'*****************Variables*************
Global WorkArea(250) As String
Global Users As String
Global User As String
Global boolsave As Boolean
Global boolnew As Boolean
Global Tries As Integer
Global bCannotSave As Boolean
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long ' only used if FOF_SIMPLEPROGRESS
End Type
Public Function Version()
'File Version #
'Version 01.00.00.01 = Initial Version
'Version 01.00.00.02 = Lots of code cleanup
'Added Replace form and menu option. Added
'Error handling for Run Time Error with the
'combo box.
'Version 01.00.00.03 = Moved lots of code to
'module 2. New and open code from the MDIForm
'Version 01.01.01.01 - Moved Code into different
'modules. Fixed Query_Unload on frmOpenDoc and
'MDIForm.
'Version 01.01.01.02 - Added procedure to DocProcedures